#!/usr/bin/env perl

use strict;
use warnings;
use feature qw( say );

use Data::Printer;
use AWDB::Reader;

    
my $reader = AWDB::Reader->new( file => 'test.awdb' );
my $ip_address = '211.112.21.0';
#my $ip_address = '2001:023a:0000:0000:0000:0000:0000:0000'
my $record = $reader->get_result_address($ip_address);
say np $record;

